home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ SC2000 User Info.xpl < prev    next >
Text File  |  2001-05-27  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Games\SimCity 2000"
  5. "NAME"="Registered User/Mayor Name"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Name"
  9. "TEXT 2"="Company"
  10. "DESCRIPTION 1"="Once SimCity 2000 is installed, you cannot normally change the registered user and company."
  11. "DESCRIPTION 2"="  The registered user is also the name used by the game, by default, as the mayor's name.  The only way to change this would be to reinstall the entire game, or to manually hack the registry entries.  This plug-in allows you to easily and quickly change it, without having to reinstall the entire game."
  12. "AUTHOR"="CptSiskoX (Xteq Systems)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18.  
  19. sPath="HKEY_CURRENT_USER\Software\Maxis\SimCity 2000\Registration\"
  20. Sub Plugin_Initialize 
  21.  if RegPathExists(sPath) then
  22.   s=RegReadValue(sPath & "Mayor Name")
  23.   SetUIElement 1,s
  24.  
  25.   s=RegReadValue(sPath & "Company Name")
  26.   SetUIElement 2,s
  27.  else
  28.   Disable
  29.  end if
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  Call RegWriteValue(sPath & "Mayor Name",s,1)
  38.  
  39.  s=GetUIElement(2)
  40.  Call RegWriteValue(sPath & "Company Name",s,1)
  41. End Sub
  42.  
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.  
  47.  
  48.  
  49.